<%

Function rodada_atualizar_posicao_jogo(id_rodada)

		DIM posicao, new_posicao

		If rodada_completa_id(id_rodada) = False AND rodada_simulada_id(id_rodada) = false then
		
			str = "SELECT posicao FROM rodadas_jogos where id_rodada="&id_rodada 
			Set rsRP = conexao_geral.Execute(str)
			
			DO While not rsRP.eof
			
				posicao = rsRP("posicao")
				new_posicao = rsRP("posicao")+10000
			
				str = "UPDATE rodadas_jogos SET "
				str = str & "posicao='"&new_posicao&"' "
				str = str & " WHERE id_rodada="&id_rodada&" AND posicao="&posicao
				Set rsI = conexao_geral.Execute(str)				
			
			
			rsRP.MoveNext
			Loop		
		
			str = "SELECT posicao FROM rodadas_jogos where id_rodada="&id_rodada&" order by data asc" 
			Set rsRP = conexao_geral.Execute(str)
			
			new_posicao = 0
			
			DO While not rsRP.eof
			
				posicao = rsRP("posicao")
				new_posicao = new_posicao + 1
			
				str = "UPDATE rodadas_jogos SET "
				str = str & "posicao='"&new_posicao&"' "
				str = str & " WHERE id_rodada="&id_rodada&" AND posicao="&posicao
				Set rsI = conexao_geral.Execute(str)				
			
			
			rsRP.MoveNext
			Loop
			
			
		End If


End Function
%>
